-- card: 4211 from stack: in
-- bmap block id: 4031
-- flags: 0000
-- background id: 2620
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=431 top=276 right=300 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mise ˆ jour
----- HyperTalk script -----
on mouseUp
  put the userLevel into saveLevel
  if the userLevel < 3 then set userLevel to 3 -- "Dessin"
  if the userLevel < 3 then exit mouseUp
  clearScreen
  put empty into background field "total"
  reset paint
  choose oval tool
  set lineSize to 2
  set filled to true

  put frameLeft() into horiz
  put maxLine(field "Données") into valeurMaxi
  set cursor to 4 -- montre

  put the number of lines in field "Données" into pièces
  if pièces > 10 then
    answer "Seules les 10 premières données seront représentées." with "OK"
    put 10 into pièces
  end if

  repeat with i = 1 to pièces
    get line i of field "Données"
    if it is not empty then
      put round(frameHeight()/8.2 * it/valeurMaxi) into compteurPièces
      set pattern to 13
      drawcoins horiz,frameBottom()-2,compteurPièces
    end if
    add 40 to horiz
  end repeat
  reset paint
  choose browse tool
  set userLevel to saveLevel
end mouseUp

on drawCoins gauche,bas,combien
  put bas into y
  repeat with i = 1 to combien
    subtract 8 from y
    drag from gauche,y to gauche+30,y+10
  end repeat
end drawCoins



-- part contents for background part 5
----- text -----
6
13
15
15
17
22
25
34
50
60

-- part contents for background part 11
----- text -----
Sté BOL : bénéfice annuel